home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 February / Macworld (1999-02).dmg / Serious Demos / Geo3D 1.1.4 / ScriptAnimation < prev    next >
Text File  |  1998-10-13  |  255b  |  15 lines
  1. -- Geo3D
  2. -- Test Animation
  3.  
  4. tell application "Geo3D"
  5.     activate
  6.     make new document
  7.     set x to import animation from file "Demo.geo"
  8.         if x > 0 then -- 0: error
  9.             play
  10.             repeat with x from 1 to x -- slower
  11.                 go to frame x
  12.             end repeat
  13.         end if
  14. end tell
  15.